home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / mac / Education / Extended Calculator II / Calculator programs / Random draw II < prev    next >
Text File  |  1996-02-22  |  336b  |  14 lines
  1. x:=0;
  2. while(x<.999);
  3.     x:=rnd;
  4.     if (x<.1);
  5.         POval(random(1,100),random(1,100),random(1,100),random(1,100));
  6.     end;
  7.     if(x<.8);
  8.         PRect(random(1,600),random(1,300),random(1,600),random(1,300));
  9.     end;
  10.     if (x>.8);
  11.         PPat(random(1,5);
  12.         Color(random(1,100),random(1,100),random(1,100));
  13.     end;
  14. end;